﻿<Serializable()> _
Public Class RedeSocial
    Inherits Contato

    Private _facebook As String
    Public Overridable Property Facebook() As String
        Get
            Return _facebook
        End Get
        Set(ByVal value As String)
            _facebook = value
        End Set
    End Property

    Private _twitter As String
    Public Overridable Property Twitter() As String
        Get
            Return _twitter
        End Get
        Set(ByVal value As String)
            _twitter = value
        End Set
    End Property

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As RedeSocial
        Return MyBase.RedeSocialDao.Buscar(_id)
    End Function

#End Region

End Class